home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
demo
/
vtskt10i.zip
/
CONNECT.FRM
< prev
next >
Wrap
Text File
|
1993-12-08
|
2KB
|
86 lines
VERSION 2.00
Begin Form connect_form
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Connect"
ClientHeight = 960
ClientLeft = 2745
ClientTop = 2925
ClientWidth = 4575
Height = 1365
Left = 2685
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 960
ScaleWidth = 4575
Top = 2580
Width = 4695
Begin CommandButton cancel
Caption = "Cancel"
Height = 345
Left = 2130
TabIndex = 3
Top = 480
Width = 945
End
Begin CommandButton connect
Caption = "Connect"
Default = -1 'True
Height = 345
Left = 1110
TabIndex = 2
Top = 480
Width = 945
End
Begin TextBox ipname
Height = 285
Left = 870
TabIndex = 1
Top = 90
Width = 3585
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "IP Name"
Height = 225
Left = 60
TabIndex = 0
Top = 120
Width = 765
End
End
Sub cancel_Click ()
telnet_form.WinSock1.IPName = ""
telnet_form.WinSock1.Port = 0
Hide
End Sub
Sub connect_click ()
telnet_form.WinSock1.IPName = IPName
telnet_form.WinSock1.Port = 23
Hide
End Sub
Sub Form_Activate ()
IPName = telnet_form.WinSock1.IPName
Port = Str$(telnet_form.WinSock1.Port)
End Sub
Sub ipname_KeyPress (keyascii As Integer)
If keyascii = 13 Then
connect_click
keyascii = 0
End If
End Sub